home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / cgraphix / ccir.c < prev    next >
Text File  |  1986-05-28  |  791b  |  43 lines
  1. /* «RM120»«PL99999»«TS4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,68,72,76» */
  2. #include    <stdio.h>
  3. #define    EXTERN    extern
  4. #include    <typedef.h>
  5. /* program DrawPoints; */
  6.  
  7. extern int InitGraphic();
  8. extern int DrawBorder();
  9. extern int LeaveGraphic();
  10. extern int DrawPoint();
  11.  
  12. extern double    GetAspect();
  13.  
  14. main()
  15. {
  16.     int i;
  17.     double    AspectLoc, rad;
  18.  
  19.     InitGraphic();                /* init the system and screen    */
  20.     DefineWorld(1, 0., 0., 1000., 1000.);
  21.     SelectWorld(1);
  22.     SelectWindow(1);
  23.     SetBackground(0);
  24.     DrawBorder();
  25.  
  26.     rad = 1.5;
  27.     AspectLoc = GetAspect();
  28.     SetAspect(.2);
  29.  
  30.     for (i = 1; i <= 20; i++) {
  31.         DrawCircle((double)500., (double)500., rad);
  32.         SetAspect(.2+i/10.);
  33.         rad = rad - .05;
  34.     }
  35.  
  36.     SetAspect(AspectLoc);
  37.  
  38.     inkey();
  39.  
  40.     LeaveGraphic();
  41. }
  42.  
  43.